﻿ <script language="VBScript"> 
         Dim hkey_root,hkey_path,hkey_key 

         hkey_root  = "HKEY_CURRENT_USER" 
         hkey_path = "\Software\Microsoft\Internet Explorer\PageSetup"   //IE打印设置的注册表地址

         //设置修改函数
         function pagesetup_null() 
               On Error Resume Next 

               Set RegWsh = CreateObject("WScript.Shell") 
               hkey_key="\header" 
               RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"" //页眉

               hkey_key="\footer" 
               RegWsh.RegWrite hkey_root+hkey_path+hkey_key,""  //页脚

               hkey_key="\margin_left" 
               RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"1"  //键值设定--左边边界

               hkey_key="\margin_top" 
               RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"1" //键值设定--上边边界

               hkey_key="\margin_right" 
               RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"1" //键值设定--右边边界

               hkey_key="\margin_bottom" 
               RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"1" //键值设定--下边边界
         end function 
         
         //恢复默认设置
         function pagesetup_default() 
               On Error Resume Next 
               Set RegWsh = CreateObject("WScript.Shell") 

               hkey_key="\header" 
               RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"&w&b页，&p/&P"  //页数-

               hkey_key="\footer" 
               RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"&u&b&d"  //网址，日期等信息
         end function 


  </script>
  <script language="javascript">
  	var e;
  	try {
		pagesetup_null();
        pagesetup_default();
  	}
  	catch(e) {
  		alert(e.message);
  	}
  </script>
1